home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
demos
/
r-z
/
sbase4pro
/
trading
/
cash.sbd
< prev
next >
Wrap
Text File
|
1995-07-10
|
1KB
|
25 lines
Batch_ref ;NML ;00000. ;0 ;0 ;
Batch_date ;DAT CON ;mmm dd,yy ;1 ;0 ;>
TODAY
Client ;TXT VAL IXD ;8 ;2 ;0 ;>
(Client.CASH = "" OR LOOKUP (Client.CASH,Customer_Ref.CLIENTS)) ELSE REQUEST "Client reference not found","Select one of the following",20,,Client.CASH,60,Customer_Ref.CLIENTS,Client.CLIENTS,Location.CLIENTS
Trans_date ;DAT CON ;mmm dd,yy ;3 ;0 ;>
Batch_date.CASH
Trans_time ;TIM CON ;hh:mm am ;4 ;0 ;>
NOW
Trans_Type ;TXT VAL ;1 ;5 ;0 ;>
Trans_Type.CASH = "r" OR Trans_Type.CASH = "p"
Trans_ref ;NML ;0000. ;6 ;0 ;
Trans_key ;VNL CLC RDO IXU ;00000000. ;7 ;0 ;>
Batch_ref.CASH * 10000 + Trans_ref.CASH
Cash_ref ;TXT ;12 ;8 ;0 ;
Amount ;NUM ;-9999999.00 ;9 ;0 ;
Printed_yn ;LOG ;1 ;10 ;0 ;
Client_Net ;VNU CLC RDO ;-9999999.00 ;11 ;0 ;>
LOOKUP (Client.CASH,Customer_Ref.CLIENTS) ? Net_Due.CLIENTS:Client_Net.CASH
Trans_Desc ;VTX CLC RDO ;8 ;12 ;0 ;>
Trans_Type.CASH = "r" ? "Receipt":"Payment"
Signed_Amt ;VNU CLC RDO ;-9999999.00 ;13 ;0 ;>
Trans_Type.CASH = "p" ? Amount.CASH * - 1:Amount.CASH